home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
bubble
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
33 lines
Category: Filter Factory Gallery B
Title: Bubble...
Copyright: Copyright © 1996 Visual Manipulation
Author: Mario Klingemann
Filename: ffb07gal.8bf
R:put(c2m(x-val(2,0,X),y-val(3,0,Y)),1),put(c2d(x-val(2,0,X),y-val(3,0,Y)),3),put(mix(ctl(5),ctl(4),get(1)-val(0,0,M),val(1,0,M)),0),put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
G:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
B:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
A:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?get(2):c
ctl[0]: Inner Radius
ctl[1]: Outer Radius
ctl[2]: Center X
ctl[3]: Center Y
ctl[4]: Inner Shading
ctl[5]: Outer Shading
ctl[6]: X Distortion
ctl[7]: Y Distortion
val[0]: 132
val[1]: 135
val[2]: 137
val[3]: 130
val[4]: 169
val[5]: 255
val[6]: 255
val[7]: 251